;;;QQ:67762207
[@StoneMake]
{
#IF
#SAY

ԺϳҪʯ.ÿη100.\
<ʯͷϳ/@Stonemakesure(ʯ,2)>\

[@Stonemakesure()]
#ACT
mov A0 %ARG(1)
mov D1 %ARG(2)
mov ʯͷ1 %A0
mov 2 %D1

#SAY
ѡҪϳɵʯͷ:\
@StoneMaking/1/<$OUTPUT(A0)>/1/1/1/100/һʯ/<$OUTPUT(D1)>
<ʯ/@Stonemakesure(ʯ,2)> Ҫ2һʯ\
<ʯ/@Stonemakesure(ʯ,4)> Ҫ4һʯ\
<Ĵʯ/@Stonemakesure(Ĵʯ,8)> Ҫ8һʯ\
<ʯ/@Stonemakesure(ʯ,16)> Ҫ16һʯ\
<ʯ/@Stonemakesure(ʯ,32)> Ҫ32һʯ\
<ʯ/@Stonemakesure(ʯ,64)> Ҫ64һʯ\
<ʯ/@Stonemakesure(ʯ,128)> Ҫ128һʯ\
<ħʯ/@Stonemakesure(ħʯ,256)> Ҫ256һʯ\
</@StoneMaking><ر/@exit>

[@StoneMaking]
#ACT
mov A0 %ʯͷ1
mov D1 %2

#IF
checkitem һʯ %D1
Checkgold 100
#ACT
take һʯ %D1
take  100
give %A0 1

#ELSESAY
Բ һʯ߽Ҳ.
closecomposewnd

}

;;;QQ:67762207